home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / BOZOL2.ZIP / VIDEO_IO.CMD < prev    next >
OS/2 REXX Batch file  |  1994-02-08  |  1KB  |  38 lines
  1.         CASE "CLS"
  2.         BOZOCLS
  3.  
  4.         CASE "COLOR"
  5.         BOZOCOLOR VAL(POPARG$), VAL(POPARG$)
  6.  
  7.         CASE "LOCATE"
  8.         BOZOLOCATE VAL(POPARG$), VAL(POPARG$)
  9.  
  10.         CASE "TAB"
  11.         PUSHARG CHR$(9)
  12.  
  13.         CASE "CR"
  14.         PUSHARG CHR$(13)
  15.  
  16.         CASE "PROMPT"
  17.         DO:BOZOPRINT POPARG$:LOOP WHILE ArgPtr%>0
  18.  
  19.     CASE "PRINT"
  20.         DO:BOZOPRINT POPARG$:LOOP WHILE ArgPtr%>0
  21.         BOZOPRINT CrLf$
  22.  
  23.         CASE "INPUT"
  24.         A%=ArgPtr%
  25.         IF ArgPtr%>1 THEN FOR y%=A% TO 2 STEP -1:BOZOPRINT POPARG$:NEXT y%
  26.         VALUE$=BOZOINPUT$
  27.     VAR$=LITERAL$(1)
  28.                 IF LEN(VAR$) THEN
  29.                           ARRAY SCAN VAR$(1),COLLATE UCASE, =LITERAL$(1), TO i%
  30.                         IF i% THEN
  31.                             VALUE$(i%)=VALUE$
  32.                         ELSE
  33.                             INCR NextVar%
  34.                                 VALUE$(NextVar%)=VALUE$
  35.                                 VAR$(NextVar%)=LITERAL$(1)
  36.                         END IF
  37.                 END IF
  38.